home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Apple II Magazines (PO)
/
Nibble Volume 11, No. 11 (1990-11)(MindCraft Publishing)(Side A).zip
/
Nibble Volume 11, No. 11 (1990-11)(MindCraft Publishing)(Side A).po
/
FONT.DISPLAY.bas
< prev
next >
Wrap
BASIC Source File
|
1996-12-24
|
1KB
|
28 lines
10 REM *************************
20 REM * FONT.DISPLAY *
30 REM * BY: LEO C. CURRAN *
40 REM * COPYRIGHT (C) 1990 *
50 REM * MINDCRAFT PUBL. CORP. *
60 REM * CONCORD, MA 01742 *
70 REM *************************
80 HOME : HTAB 13: PRINT "FONT DISPLAYER"
90 HTAB 11: PRINT "BY LEO C. CURRAN"
100 HTAB 8: PRINT "(C) 1990 MINDCRAFT PUBL."
110 VTAB 12: PRINT "PLEASE WAIT..."
120 D$ = CHR$(4)
130 IF PEEK(48896) = 76 THEN PRINT D$;"PREFIX/RAM"
140 PRINT D$;"OPEN FONT.TXT"
150 PRINT D$;"WRITE FONT.TXT"
160 PRINT "<1=NEW.YORK.12>": PRINT "<2=>": PRINT "<1>FONT DISPLAYED: ": PRINT
170 PRINT "Key<t.4>x1<t.8>x2<t1.2>x3<t2.1>Key<t2.5>x1<t2.9>x2<t3.3>x3 <t4.2>Key <t4.6>x1 <t5>x2 <t5.4>x3"
180 FOR J = 33 TO 64
190 K = J +32:L = J +64
200 IF J = 60 OR J = 62 THEN N = J:J = 32: REM SUPERFONTS DELIMITER
210 PRINT "<1><x1>" CHR$(J)"<2><t.4>" CHR$(J)"<x2><t.8>" CHR$(J)"<x3><t1.2>" CHR$(J);
220 IF N = 60 OR N = 62 THEN J = N:N = 0: REM SUPERFONTS DELIMITER
230 PRINT "<1> <x1> <t2.1>" CHR$(K)" <2> <t2.5>" CHR$(K)" <x2> <t2.9>" CHR$(K)" <x3> <t3.3>" CHR$(K);
240 PRINT "<1> <x1> <t4.2>" CHR$(L)" <2> <t4.6>" CHR$(L)" <x2> <t5>" CHR$(L)" <x3> <t5.4>" CHR$(L)
250 NEXT J
260 PRINT D$;"CLOSE"
270 VTAB 12: CALL -958
280 PRINT "THE FILE 'FONT.TXT' HAS BEEN CREATED": IF PEEK(48896) = 76 THEN PRINT "ON /RAM."